home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: delta / whiteline CD Series - delta.iso / tools / utils / twtcp122 / pktdrv / pktdlink / pktqasm.s < prev    next >
Text File  |  1995-11-25  |  854b  |  46 lines
  1. ;/********************************************************************/
  2. ;/*                                                                    */
  3. ;/*    Packet driver for D-LINK ethernet controller                    */
  4. ;/*                                                                    */
  5. ;/*    Copyleft by P. Mayer, 1992 TU-Vienna IAEE                        */
  6. ;/*    All rights reserved                                                */
  7. ;/*                                                                    */
  8. ;/********************************************************************/
  9.  
  10.         xdef    p_disint
  11.         xdef    p_enabint
  12.         
  13.         super
  14.         data
  15.  
  16.         text
  17.  
  18. p_disint:
  19.         tst.w    p_intstat
  20.         bne.s   xxx
  21.         move    sr,d0
  22.         move    d0,-(a7)
  23.         andi    #$F8FF,d0
  24.         ori        #$700,d0
  25.         move    d0,sr
  26.         move.w    (a7)+,p_intstat
  27.         rts
  28.         
  29.         
  30. p_enabint:
  31.         move.w     p_intstat,d0
  32.         beq.s    xxx
  33.         move    sr,d1    
  34.         andi.w    #$0700,d0
  35.         andi.w    #$F8FF,d1
  36.         or        d0,d1
  37.         move    d1,sr
  38.         moveq    #0,d0
  39.         move.w    d0,p_intstat
  40.         rts
  41.  
  42. xxx:    bra.s xxx
  43.         
  44.         .bss
  45. p_intstat:    ds.w 1
  46.